home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zj.d64 / proc.nonlist < prev    next >
Text File  |  2007-03-01  |  984b  |  48 lines
  1. 0010 // ─┼╠┼╘┼ "PRC.NONLIST"
  2. 0020 //   ╠╔╙╘ "PRC.NONLIST"
  3. 0030 
  4. 0040 //
  5. 0050 //
  6. 0060 // ╨╥╧├ WEGTOT  (REGEL):
  7. 0070 //   HIDE ALL PROGRAMA LINES UPTO
  8. 0080 //   'REGEL' (LINENUMBER)
  9. 0090 //
  10. 0100 // ╨╥╧├ TERUG
  11. 0110 //   REVEAL ALL PROGRAM LINES
  12. 0120 //
  13. 0130 
  14. 0140 ╨╥╧├ WEGTOT(REG) ├╠╧╙┼─
  15. 0150   //
  16. 0160   PT:=╨┼┼╦($16)+╨┼┼╦($17)*256
  17. 0170   ╠╧╧╨ 
  18. 0180     //
  19. 0190     REGNR:=╨┼┼╦(PT)*256+╨┼┼╦(PT+1)
  20. 0200     ╔╞ REGNR>9999 ╘╚┼╬ REGNR:-10000
  21. 0210     L:=╨┼┼╦(PT+2)
  22. 0220     ┼╪╔╘ ╫╚┼╬ REGNR>REG ╧╥ L=0
  23. 0230     ╨╧╦┼ PT,REGNR ─╔╓ 256
  24. 0240     ╨╧╦┼ PT+1,REGNR ═╧─ 256
  25. 0250     ╨╥╔╬╘ "*",
  26. 0260     PT:+L
  27. 0270     //
  28. 0280   ┼╬─╠╧╧╨ 
  29. 0290   //
  30. 0300 ┼╬─╨╥╧├ WEGTOT
  31. 0310 
  32. 0320 ╨╥╧├ TERUG ├╠╧╙┼─
  33. 0330   //
  34. 0340   PT:=╨┼┼╦($16)+╨┼┼╦($17)*256
  35. 0350   REGNR:=10010
  36. 0360   ╠╧╧╨ 
  37. 0370     //
  38. 0380     L:=╨┼┼╦(PT+2)
  39. 0390     ┼╪╔╘ ╫╚┼╬ L=0
  40. 0400     ╨╧╦┼ PT,REGNR ─╔╓ 256
  41. 0410     ╨╧╦┼ PT+1,REGNR ═╧─ 256
  42. 0420     ╨╥╔╬╘ "*",
  43. 0430     PT:+L; REGNR:+10
  44. 0440     //
  45. 0450   ┼╬─╠╧╧╨ 
  46. 0460   //
  47. 0470 ┼╬─╨╥╧├ TERUG
  48.